unit u_pesquisaproduto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, u_pesquisapadrao, FMTBcd, DB, DBClient, Provider, SqlExpr,
  Grids, DBGrids, JvExDBGrids, JvDBGrid, StdCtrls, AdvEdit, AdvGlowButton,
  ExtCtrls, AdvGroupBox;

type
  TFRM_PesquisaProduto = class(TFRM_PesquisaPadrao)
    cdsPesquisarCOD_PRODUTO: TIntegerField;
    cdsPesquisarDESCRICAO: TStringField;
    cdsPesquisarCOD_BARRAS: TStringField;
    cdsPesquisarESTOQUE_ATUAL: TStringField;
    procedure FormShow(Sender: TObject);
    procedure edtPesquisarKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

  end;

var
  FRM_PesquisaProduto: TFRM_PesquisaProduto;

implementation

{$R *.dfm}

procedure TFRM_PesquisaProduto.FormShow(Sender: TObject);
begin
  inherited;
  //GridPesquisar.Columns[1].Visible := false;


  lblTotal.Caption := lblTotal.Caption + ' produtos ativos';
end;

procedure TFRM_PesquisaProduto.edtPesquisarKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  cdsPesquisar.Locate('descricao',edtPesquisar.Text,[loPartialKey,loCaseInsensitive]);
end;

end.
